;; This buffer is for text that is not saved, and for Lisp evaluation.
;; To create a file, visit it with C-x C-f and enter text in its buffer.

(defun in-loc(s c l file)
  (do ((ll 0 (1+ ll))
       (fpin (open file :if-does-not-exist nil))
       (fpout (open "default.temp" :direction :output :if-does-not-exist :create :if-exists :overwrite))
       (line T))
      ((or (null line) (null fpin)) (progn (close fpin)(close fpout)))
      (setf line (read-line fpin nil))
      (unless (null line)
	(cond ((< ll l) (write-line line fpout))
	    ((= ll l) (progn (setf ss (format nil "~a~a~a" (substring line 0 c) s (substring line c (length line)))) (write-line ss fpout)))
	    ((> ll l) (write-line line fpout))))))
   